DIM name% 16

SYS"Director_Menu","""View bin days"" OpenBin -temp"

offset%=0

REPEAT
  SYS"OS_GBPB",9,"Bin:",name%,1,offset%,16,"*" TO ,,,,offset%
  IF offset%<>-1 THEN
    SYS"Director_Option",name%
    SYS"Director_Command","Filer_OpenDir Bin:"+FNread0(name%)
  ENDIF
UNTIL offset%=-1
SYS"Director_EndMenu"

*Set Director$Menu OpenBin

END

DEF FNread0(addr%)

LOCAL a$

WHILE ?addr%<>0:a$+=CHR$(?addr%):addr%+=1:ENDWHILE

=a$
